This sample code shows the use of the SortField Object. Modify the following sample code to fit your needs.
Dim crystalreport As CRPEAuto.Report
Dim sortFlds As CRPEAuto.SortFields
Dim sortFld As CRPEAuto.SortField
Dim fldDef As CRPEAuto.Object 'field definition
Dim crwApplication As CRPEAuto.Application
Private Sub Command1_Click()
'returns/sets field definition for sort field
'name for record sort field
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
("c:\crw\reports\xtreme\wwsales.rpt")
Set sortFlds = crystalreport.RecordSortFields
sortFlds.Add crDescending, "{Customer.Region}"
Set sortFld = sortFlds.Item(1)
Set fldDef = sortFld.Field
MsgBox "Name for record sort field: " & fldDef.Name
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |